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FF 


| 
G 16 
| **FILE**1D**BASPURIOB 
BBBBBBBB AAAAAA SSSSSSSS_ PPPPPPPP UU UU RRRRRRRR IIIII] 000000 BBBBBBBB 
BBBBBBBB AAAAAA SSSSSSSS_ PPPPPPPP UU UU RRRRRRRR III! 000000 BBBBBBBB 
BB BB AA AA SS PP PP UU UU RR RR I] 00 00 6B BB 
BB AA AA SS PP PP UU UU RR RR I] 00 00 88 BB 
BB BB AA AA SS PP PP UU UU RR RR II 00 00 6B BB 
BB BB AA AA SS PP PP UU UU RR RR I] 00 00 68 
BBBBBBBB AA Aa SSSSSS PPPPPPPP UU UU RRRRRRRR I! 00 00 88888688 
BBBBBBBB Aa AA SSSSSS PPPPPPPP UU UU RRRRRRRR I] 00 00 6888 
BB BB AAAAAAAAAA SS PP UU UU RR RR I] 00 00 8B BB 
BB BB AAAAAAAAAA SS PP UU UU RR RR I] 00 00 68 BB 
BB BB AA AA SS PP UU UU RR RR I] 00 00 88 BB cece 
BB AA Aa SS PP UU UU RR RR II 00 00 88 BB cece 
BBBBBBBB AA AA SSSSSSSS PP UUUUUUUUUU RR sR IIIIII 000000 BBBBBBBB sees 
BBBBBBBB AA AA SSSSSSSS PP UUUUUUUUUU RR RR III 000000 BBBBBBBB cove 
LL IIIIi SSSSSSSS 
LL IIIT] SSSSSSSS 
LL IJ SS 
LL I] SS 
LL I] SS 
LL II SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III SSSSSSSS 
LLLLLLLLLL HII] SSSSSSSS 


BASSSPUR_10_BUF 16-Sep-1984 00:58: AX-11 Bliss-32 V4.0-74 Page 1 
| 1228687138 99:38:35 BASRTL.SRC BASPURIOB B82; 1 . (1) 
MODULE BASSSPUR_IO_ BUF ( ! Purge 1/0 buffer {gr a file. 
{DENT = '1-007' ! File: BASPURIOB.B32 


BEGIN 
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i® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


'w THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 

ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
® 
® 
® 
® 
® 
® 
® 
* 
ie TRANSFERRED. * 
® 
® 
® 
® 
® 
® 
® 
* 
® 
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t® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
; ormponat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'w DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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0 
0 le 
00 ! FACILITY: 
0032 ‘ 
OO87 ABSTRACT: 
0035 : This module contains routines which will check the LUN indicated oy er 
0036 : and print the contents of the associated 1/0 buffer if there is valid 
37 0037 : data in the buffer. These routines are intended to be called before 
38 0038 ! a file is closed (explicitly or implicitly at end of program) or if 
4 'te4 } an error occurs during an output element transmit. 
rt! Boe, : ENVIRONMENT: User mode - AST reentrant 
ra One7 : AUTHOR: Donald G. Petersen, CREATION DATE: 22-Jan-79 
45 045 ! MODIFIED BY: 
46 0046 : 
47 0047 : DGP, : VERSION 1-01 
48 0048 ! 1-001 = original 
49 0049 ‘ 1-208 - Use 32-bit addresses for externals. JBS 27-JAN-1979 
50 0050 ! 1-003 = Change entry point names so we have two: one for C Ose 
51 0051 : and one for error ag ty JBS for DGP 07-MAR-1 
52 8036 ! 1-004 - Make PUR_IO_ERR purge the terminal on unit zero. bgp 07-Mar-79 
53 005 ! 1-005 - Remove references to BAS$ routines. JBS 10-MAY-1979 
54 bpee ! 1-006 = Change from an OTS routine to a BAS vous ing since FORTRAN 
55 055 : does not need to purge 1/0 buffers. JBS 6-AUG-197 
56 Boes ! 1-007 = Don't purge virtual arrays; it is quite complex, and CLOSE 
57 05 will do it. JBS 30-AUG-1979 


a 
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16-Sep-1984 00:58: AX-11 Bliss-32 V4.0-74 Pa 2 
1b-Se0-1984 00:28:35 BASRTL_SRCIBASPURIOB.B est ” (1) 


1 !-- 


1 
1 !<BLF/PAGE> 
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BASSSPUR_10_BUF 16-Sep-1984 00:58: AX-11 Bliss-32 V4.0-74 Page 3 
1-007 12-88-1382 00: 38:38 BASRTL.S CIBASPURIOB.B 2:1 ° (2) 
; *§ 0061 1! 
; 6 Boog 1 ! SWITCHES: 
: 664 0063 1! 
; & 0064 1 
; 66 BR? } SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
; @& it 1! 
; 669 0068 1 ! LINKAGES: 
are a 0069 1! 
; 0070 1 
Se 0071 1 REQUIRE ‘RTLIN:OTSLNK'; ! define all Linkages 
Se 0500 1 
ae 0501 1! 
Bae ec B206 1 ! TABLE OF CONTENTS: 
s £6 0503 1! 
ae 0504 1 
s 7 0505 1 FORWARD ROUTINE : 
; 0506 1 BASSSPUR_IO_ERR : NOVALUE, ' oe outstanding output buffer 
; 0507 #1 ' fol ee an error 
3 a £45 ; BAS$SPUR_IO_CLO : CALL_CCB NOVALUE; ! Purge outstanding output buffer 
oo 0510 1 ! during a close 
; 84 0511 1! 
4 85 b21¢ 1 ! INCLUDE FILES: 
b4 86 051 1! 
s OT 0514 1 
; 4 g213 ! REQUIRE ‘RTLML:OTSLUB'; ' 1/0 statement block 
H + Bo29 ! REQUIRE "RTLIN:RTLPSECT'; ! Define DECLARE_PSECTS macro 
3 4 oc36 : REQUIRE ‘RTLIN:BASIOERR'; ! Define I/0 error symbols 
: 94 0806 1 LIBRARY ‘RTLSTARLE'; ! STARLET Library 
; 0807 1 
. 0808 1! 
: 97 0809 1 ! MACROS: 
; «698 0810 1! 
: 99 0811 1! NONE 
: 100 ols 1! 
; 101 081 1 ! EQUATED SYMBOLS: 
: 102 0814 1! 
: 103 0815 1 
; 6104 0816 1 LITERAL 
s 105 0817 1 K_CR = %x'0OD’ ' ASCII CR 
; 106 0818 1 “NULL = %x'06", i ASCII NUL 
; 107 0819 1 K_LF = 2x'0B'; ' ASCII LF 
3; 108 0820 1 
: 109 0821 1! 
; 110 bas§ 1 ! PSECT declarations 
3 111 43 1! 
> a2 0824 1 DECLARE_PSECTS (BAS); ! Put this in BAS psect 
: 113 0825 1! 
3; 61146 pase 1 ! OWN STORAGE: 
3 115 0827 1! 
8 0828 1! NONE 
: 11 Oot 1! 
; 118 0830 1 ! EXTERNAL REFERENCES: 


K 16 
eagyren0.au IERrMs QQE:S3HMEGHLSMESGRth’SRen 


ee 0831 1! 

; 7 08 ¢ 1 

a% 0833 1 EXTERNAL ROUTINE 

; 7 0834 1 BASSSCB_PUSH : fy CBP : Load register CCB 

; 1 0835 1 BAS$SCB-POP : JSB TB PoP SNOVALUE, i Done with register CCB 

By 0836 1 BASSS$NERT_LUN : NOV ACUE ! Get next logical unit number 
; : eth : BASSS$STOP_IO : NOVALULS ! Signal fatal BASIC I/0 error 


16 
BASSSPUR_10_BUF 16-5 -1984 00:58: AX-11 Bliss=-32 V4.0-74 P 
1-00 Pi 14 Sep-1984 19:38:35 t }BASPURIOB.6 est og tot (3) 
! 


7 - BASRTL.SRC 
: 128 0839 1 GLOBAL ROUTINE BAS$$PUR_I0_CLO ! Purge the contents of an 1/0 buffer 
: te 0840 1 : CALL_CCB NOVALUE = 
; 150 0841 1 
p TS) pees ; 1 
: ; ¢ Beer } ; FUNCTIONAL DESCRIPTION: 
; 134 0845 1! This routine will PUT the contents of the buffer associated with the LUN 
; 139 0846 1! passed to it if the buffer has valid data in it. This routine is expected 
; 1 0847 1! to aid in —s a file either implicitly or explicitly if the last lan- 
. or 0848 1! guage to access the file has the Basic semantics where an output record 
; 138 0849 1! - be continued across several output statements. Therefore, an output 
: I> 0850 1! buffer may exist which has valid data in it which should be printed before 
3; 140 0851 1! a program finishes executing. 
; 141 pees 7 | 
> 142 0855 1 ! FORMAL PARAMETERS: 
3; 143 0854 1! 
> 144 0855 1! NONE 
; 145 0856 1! 
: 146 0857 1 ! IMPLICIT INPUTS: 
3 147 0858 1! : ‘ 
> 148 0859 1! LUBSV_OUTBUF _DR Flag to indicate the output buffer has valid 
> 149 0860 1! data in it 
s 39 0861 1! LUBSW_LUN LUN number 
3 693) 0862 1! 
3 [Ve 08635 1 ! IMPLICIT OUTPUTS: 
3 33 0864 1! ; 
; 154 0865 1! LUBS$V_OUTBUF _DR Flag to indicate the output buffer has valid 
> 55 0866 1! LUB$B_BAS_VvFT2 ‘post’ carriage control for PRN file format 
> 156 0867 1! data in it 
:. Vor 0868 1! 
; 158 0869 1 ! ROUTINE VALUE: 
: TF 0870 1! 
: 160 0871 1! NONE 
; (161 0872 1! 
: 162 08735 1 ! SIDE EFFECTS: 
; 163 0874 1! 
; 164 0875 1! NONE 
: 165 0876 1! 
: 166 0877 1 !-- 
; 167 0878 1 
: 168 0879 2 BEGIN 
; 169 0880 § 
; 17 0881 EXTERNAL REGISTER 
3 fa. oes ; CCB : REF BLOCK C, BYTE]; 
3 18 0884 IF (.CCB CLUBSV_OUTBUF_DR) AND (.CCB CLUBS$B_ORGAN] NEQ LUBS$K_ORG_VIRTU)) 
3 174 0885 THEN 
s i 0886 BEGIN 
; (1% 0887 e : 
3 HAs ttt ; Write out the buffer. This invloves a call to RMS. 
; #179 0890 ccB pees fst) = .CCB pLUSSA But PTR) = .CCB CLUBSA_RBUF _ADR]; 
; 180 0891 CCB CRABSL_RBFJ = sefS LUBSA_RBUF ADR); 
: 131 tt CCB CLUBSV_OUTBUF _DRJ = 0; 
; 188 894 4 IF ( NOT $PUT (RAB = .CCB)) 
; «(184 0895 3 THEN 


M16 
| BASSSPUR_10_BUF 16-Sep-1984 00:58: AX-11 Bliss-32 44.0 Page 
1-007 14-Sep-1986 90:28:35 BASRTL. SRC IBASPURIOB. 5 at 9 3) 
> 185 0896 4 BEGIN 
: 188 Seon WHILE (.CCB CRABSL_STS] EQL RMS$_RSA) DO 
> 188 0899 BEGIN “ ™ 
: 156 $904 SPUT (RABe= CEOs 
: 191 0902 4 : 
; 198 0903 4 
; 193 9904 4 IF ( NOT .CCB CRABSL_STSJ) THEN BASS$STOP_IO (BASSK_IOERR_REC); 
: 195 0906 END: 
> 196 0907 
: 197 0908 CCB LUB$B_BAS_VFC1] = K_LF; 
: 198 0909 CCB CLUBSB~BAS"VFC2J = KINULL; 
: 199 0910 3 ‘+ 
: $00 34h 3 Initialize the record buffer. 
: 202 091 : ccB B [LUBSA_ BUF_PTR] = .CCB CLUBSA_RBUF_ADRI; 
: 203 0914 CCB CLUBSA_BUF-END] = .CCB CLUBSA-RBUF-ADR] + .CCB CLUBSW_RBUF_SIZE); 
> 204 0915 3 CCB CLUBSL ~PRIRT _P0S] = 0; 
: 205 0916 2 END; 
3; 206 0917 2 
: 207 0918 2 RETURN; 
; 208 0919 1 END; 'End of BAS$$PUR_I0_CLO 
TITLE BASSSPUR_ 10_BUF 
IDENT \1-007\ 
.EXTRN BASS$S$CB_PUSH, BAS$$CB_POP 
SEXTRN BASSSNERT_LUN, BASSSSTOP 10 
-EXTRN SYSSPUT, SYSSWA 
.PSECT _BASSCODE,NOWRT, SHR, PIC,2 
0004 00000 .ENTRY BASSSPUR_IO_CLO, Save R2 : 
52 000000006 00 9€ 00002 MOVAB SYSSPUT “—— F 
5C FE AB 03 £1 00009 BBC -2(€CB), 4$ : 
05 (6 «AB O91 00005 CMPB th (c(B), #5 : 
56 13 0001 BEQL 4$ : 
22 «AB BO AB EC AB A3 00014 SUBW3 =20(CCB), -80(C cB). 34(CCB) : 
28 «AB EC AB DO 0001B MOVL 5g0'CC8) 40(CC ; 
FE AB 08 8A 00020 BICB2 #8, -2(CCB) F 
5B DD 90 4 PUSHL CCB : 
62 01 FB 0026 CALLS #1, SYS$PUT : 
28 50 €8 00029 BLBS RO, 3$ ; 
000182DA_ ss BF 08 AB D1 0002C 1$ CMPL =_-& (CCB), #99034 : 
10 12 000 NEQ 2 : 
5B DD 000 PUSHL CCB ; 
000000006 00 01 FB 000 CALLS i SYSSWAIT : 
5B DD 0003F PUSHL (CCB : 
62 01 FB 00041 CALLS #1, SYSS$PUT : 
E6 11 00044 BRB 1$ ; 
OA 08 AB €E8 00046 2$ BLBS  8(CCB) of : 
E 01 CE QO04A EGL a. = -(§p : 
000000006 00 01 FS 004D CALLS BASSSSTOP_ 10 : 
DA AB 0B BO 00054 38: MOVW aif, : 
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; Routine Size: 


. 
i @ 


209 


107 bytes, 


0920 


1 


14-Sep-1984 
BO 4 EC AB po 0058 OVL 
5 D2 AB 3C 0005D MOVZWL 
Bo AB EC BB40 9E 00061 OVA 
C8 AB D4 00067 CLRL 
04 OO06A 4$: ET 
Routine Base: _BASS$CODE + 0000 


-20 


19:56:38 ts 
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: =80( CCB) 
SCROJ, -76(CCB) 
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BASSSPUR_10_BUF 1ese -1984 00:58: VAX-11 Bliss-32 V4.0-74 Page 
1-007 1eeeb719k6 11:86:35 LBASRTL SRE TRASPURIOB B92; 1 . 
11 0921 1 GLOBAL ROUTINE BAS$S$PUR_IO_ERR ! Purge terminal 1/0 
1¢ 09 § 1 : NOVALUE = 
1 09 1 
14 0924 1 !+4 
1? 8 ? : FUNCTIONAL DESCRIPTION: 
217 0927 1! This routine will PUT the contents of any terminal buffer. 
218 0928 1: It is used just before printing an error message to be sure that 
$38 0929 1! the message appears after any output produced before the error 
$0 44 ? ! condition. 
2 05 ¢ 1 ! FORMAL PARAMETERS: 
09 1! 
24 0934 1! NONE 
$$? $333 1} 
26 0936 1°! IMPLICIT INPUTS: 
2e7 0937 1! 
228 0928 1! LUB$V_OUTBUF _DR Flag to indicate the output buffer has valid 
$69 093? 1! data in it 
0 0940 1! 
$3 bag ; IMPLICIT OUTPUTS: 
$38 0945 1! LUBS$V_OUTBUF DR Flag to indicate the output buffer has valid 
234 0944 1! LUB$B_BAS_vFC2 *post’ carriage control for PRN file format 
$3 0945 1! data in it 
36 0946 1! 
$3, 0947 1 ! ROUTINE VALUE: 
38 0948 1! 
tH 0949 1! NONE 
40 0950 1! 
241 0951 1 ! SIDE EFFECTS: 
seg 0952 1! 
24 0953 1! NONE 
244 0954 1! 
245 0955 1 !-- 
246 0956 1 
247 0957 BEGIN 
245 0958 
249 0959 GLOBAL REGISTER 
250 0960 CCB = K_CCB_REG : REF BLOCK C, BYTE]; 
51 0961 
2g 096 LOCAL 
5 096 FLAG, 
54 0964 LUN; 
55 0965 
$28 2268 '¢ ; ; : ‘ 
rt4 $444 : Scan through atl logical units, purging the ones OPEN to a terminal. 
59 0969 FLAG = 0; 
60 0970 
61 0971 DO 
$e 097 BEGIN 
6 97 '¢ ; 
64 974 ! Get the next logical unit number. 
65 0975 le 
66 097 BASSSNEXT_LUN (FLAG, LUN); 
267 097 
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16-Sep-1984 00:58: AX-11 Bliss-32 V4.0-7 
12-8 8=138e 90:28:38 BASRTL.SRCJBASPURIOB. 8 2;1 
978 & IF (.FLAG NEQ 0) 
9378 3 THEN 
O38 2 - BEGIN 
09 § 4 | LUN is the next logical unit number. If the file it represents is 
benz ? a open to a terminal, purge it. 
344 : BASSS$CB_PUSH (.LUN, LUBSK_ILUN_MIN); 
34 $4 ? iv (.CCB CLUBSV_OPENED] AND .CCB CLUBS$V_UNIT_0] AND .CCB CLUBS$V_FORCIBLEJ) 
0989 4 BAS$$PUR_IO_CLO (); 
0990 4 ih 
0991 4 BAS$SCR_POP (); 
0992 3 END; 
099 ; 
0994 END . 
84 § UNTIL (.FLAG EQL 0); 
0997 2 RETURN; 
0998 #1 END; 'End of BAS$$PUR_IO_ERR 
0804 00000 -ENTRY BASSSPUR_IO_ERR, Save R2,R11 
5E 08 C2 00002 SUBL2 #8, SP 
04 AE 04 00005 CLRL FLAG 
5E DD 0N008 1$: PUSHL Fag 
08 AE 99F ®400A PUSHAB 
000000006 00 02 FB 00000 CALLS ie SBASSSNEXT_LUN 
04 AE 05 00014 TSTL FLAG 
25 13 00017 BEQL 3$ 
50 08 CE 00019 MNEGL tr? RO, 
52 6—€ 00 0001C MOVL 
000000006 00 16 O001F JSB BASSSC8_ PUSH 
F FC AB €9 iy 8 BLBC -4(CCB), 2$ 
FE AB 95 00029 TSTB 3g! CCB 
OA 18 0002C BGEQ 
05 FE 06 €1 ait BBC $8, -2(CCB), 2% 
FF5D F 00 FB 000 CALLS #0 to I0_CLO 
000000006 00 16 00038 a8: JSB BASSS _POP 
04 Ag dS it — 3$: TSTL 
C5 12 00041 BNEQ "$°° 
04 00043 RET 
68 bytes, Routine Base: _BASSCODE + 0068 
0999 +1 
1099 : END 'End of module - BASS$$PUR_10_BUF 
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1-007 14-Sep-1984 11:56:32 CBASRTL.SRCJBASPURIOB.B32;1 


; PSECT SUMMARY 
: Name Bytes Attributes 
: _BASSCODE 175 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


scececce Symbols -<------ Pages Processing 
File Total Loaded Percent Mapped Time 
.$255$DUA28: CSYSLIBISTARLET.L32;1 9776 9 0 581 00:01.2 


; COMMAND QUALIFIERS 
; PL ISS/CHECK= CF FELD, SNE TIAL OPT IRS ZE) /NOTRACE/LISeL 155 sBASPUR108/08)=08.)5 :BASPURIOS MSRC$:BASPURIOB/UPDATE = (ENH$ : BASPURIOB 


Size: 175 code + 0 data bytes 
00:09.1 


Elapsed Time: 00: 
Lines/CPU Min: 65 
sooenens Sry ies 35960 
poner Used: 103 pages 
Compilation Complete 
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